home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 207 / 207.d81 / d.mad house (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  43 lines
  1. 1 dv=peek(186):if dv<8 then dv=8
  2. 5 poke 53280,0:poke 53281,0:print chr$(14):print chr$(8)
  3. 10 sys57812"mh music player",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  4. 15 f$="dwarf march"
  5. 16 sys57812f$,dv,0:poke780,0:poke 781,0:poke 782,132:sys65493
  6. 20 sys57812"mh unpacker.98",dv,0:poke780,0:poke781,128:poke782,200:sys65493
  7. 25 sys51328,"mad house.shp",dv,224,204
  8. 30 poke 252,224:poke253,204:sys 51459
  9. 35 sys 49435:poke781,0:poke 782,132:sys49458:poke 49152,7
  10. 45 t=ti+3400:poke 198,0
  11. 50 kb=peek(198)
  12. 52 if kb<>0 then goto 60
  13. 54 if t<ti then goto 60
  14. 56 goto 50
  15. 60 sys 51459:print "[147][158]"
  16. 62 print tab(12)"[194][207][206][213][211][160][208][207][201][206][212][211]"
  17. 64 print tab(2)"[144]50,000 - for both drop gates on"
  18. 66 print tab(8)"walls (one on each floor)"
  19. 68 print tab(2)"30,000 - for both drop gates on"
  20. 70 print tab(8)"ceilings (one on each floor)"
  21. 72 print tab(2)"3,000 for both bumpers (one on"
  22. 74 print tab(8)"each floor)"
  23. 76 print tab(2)"3,000 - for both spinners (one on"
  24. 78 print tab(8)"each floor)"
  25. 80 print tab(2)"3,000 - for both knife edge"
  26. 82 print tab(8)"targets on first floor"
  27. 84 print tab(2)"3,000 - for both knife edge"
  28. 85 print tab(8)"targests on second floor"
  29. 86 poke 53265,27:t=t+6520:for x=1 to 400:next
  30. 88 poke 198,0:sc=55496
  31. 90 kb=peek(198):j1=peek(56320)
  32. 91 if sc>56290 then goto 95
  33. 92 nc=int(rnd(0)*15)+1
  34. 93 poke sc,nc:sc=sc+1
  35. 95 if kb<>0 or j1<>127 then goto 120
  36. 96 if t<ti then goto 120
  37. 100 goto 90
  38. 120 poke 49152,0:poke54276,0:poke54283,0:poke 54290,0:sys 49629
  39. 122 print"[147]":poke 214,12:poke 211,15:sys 58732
  40. 124 print "[158][204][207][193][196][201][206][199]...":print ""
  41. 125 load "mad house",dv,1
  42. 10000 d=peek(186):n$="d.mad house":open15,d,15,"s0:"+n$:close15:saven$,d:end
  43.